home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / dev / amos / bestofsd.lha / Xor1.AMOS / Xor1.amosSourceCode
AMOS Source Code  |  1992-10-20  |  710b  |  25 lines
  1. ' *****************************************************
  2. ' *                                                   *  
  3. ' *  This AMOS-program was made by Svante Danielsson  *  
  4. ' *                                                   *  
  5. ' *      Mail me at: til96sdn@mds.mdh.se              *  
  6. ' *                                                   *  
  7. ' *****************************************************  
  8.  
  9. Degree 
  10.  
  11. Screen Open 1,320,256,2,Lowres : Flash Off : Curs Off 
  12. Circle 16,16,15 : Paint 16,16
  13.  
  14. Screen Open 0,320,256,2,Lowres : Flash Off : Curs Off : Hide 
  15. Palette 0,$EED
  16.  
  17. For C=0 To 420
  18.    X=144+Sin(C*8)*C/2
  19.    Y=110+Cos(C*8)*C/2
  20.    Screen Copy 1,0,0,32,32 To 0,X,Y,%1100000
  21. Next 
  22.  
  23. Wait Key 
  24. Fade 1
  25. Edit